home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ainet / generate.frm < prev    next >
Text File  |  1997-07-20  |  2KB  |  73 lines
  1. VERSION 4.00
  2. Begin VB.Form Generate 
  3.    Caption         =   "Generate Model Vectors ..."
  4.    ClientHeight    =   2352
  5.    ClientLeft      =   876
  6.    ClientTop       =   1416
  7.    ClientWidth     =   5796
  8.    Height          =   2736
  9.    Left            =   828
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2352
  12.    ScaleWidth      =   5796
  13.    Top             =   1080
  14.    Width           =   5892
  15.    Begin VB.CommandButton CancelBtn 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "Cancel"
  18.       Height          =   372
  19.       Left            =   3360
  20.       TabIndex        =   3
  21.       Top             =   1680
  22.       Width           =   1452
  23.    End
  24.    Begin VB.CommandButton GenerateBtn 
  25.       Caption         =   "Generate"
  26.       Default         =   -1  'True
  27.       Height          =   372
  28.       Left            =   840
  29.       TabIndex        =   2
  30.       Top             =   1680
  31.       Width           =   1452
  32.    End
  33.    Begin VB.Frame Frame1 
  34.       BackColor       =   &H00FFFFFF&
  35.       Height          =   1212
  36.       Left            =   240
  37.       TabIndex        =   0
  38.       Top             =   240
  39.       Width           =   5292
  40.       Begin VB.Label Label1 
  41.          Alignment       =   2  'Center
  42.          Caption         =   "This command will fill all free entries in the model with randomly generated model vectors in the square. This will make the model more accurate!"
  43.          BeginProperty Font 
  44.             name            =   "MS Sans Serif"
  45.             charset         =   1
  46.             weight          =   700
  47.             size            =   7.8
  48.             underline       =   0   'False
  49.             italic          =   0   'False
  50.             strikethrough   =   0   'False
  51.          EndProperty
  52.          ForeColor       =   &H000000FF&
  53.          Height          =   852
  54.          Left            =   360
  55.          TabIndex        =   1
  56.          Top             =   240
  57.          Width           =   4572
  58.       End
  59.    End
  60. End
  61. Attribute VB_Name = "Generate"
  62. Attribute VB_Creatable = False
  63. Attribute VB_Exposed = False
  64. Private Sub CancelBtn_Click()
  65.     MainForm.Ret = 0
  66.     Hide
  67. End Sub
  68.  
  69. Private Sub GenerateBtn_Click()
  70.     MainForm.Ret = 1
  71.     Hide
  72. End Sub
  73.